Mac Power 1996 June/MACPOWER-1996-06.ISO.7z/MACPOWER-1996-06.ISO/MacPowerオリジナル/SILICON MAGIC/リスト/リスト４

Text File | 1996-04-12 | 2KB | 89 lines

リスト４　必須Apple Event対応アプリケーションの枠組

'------------------ CONSTANTS -----------------------------------------------
...
...
_kCoreEventClass      = _"aevt"
_kAEOpenApplication   = _"oapp"
_kAEOpenDocuments     = _"odoc"
_kAEPrintDocuments    = _"pdoc"
_kAEQuitApplication   = _"quit"
_typeAEList           = _"list"
_typeFSS              = _"fss "
_keyDirectObject      = _"----"

'------------------  GLOBALS  -----------------------------------------------
...
...
DIM gOpenDocAEPtr& , gPrintDocAEPtr&
DIM gOpenApplAEPtr&, gQuitApplAEPtr&
END GLOBALS

GOTO "main"
'------------------ FUNCTIONS -----------------------------------------------
LOCAL FN SetUp
...
...
END FN
...
...
LOCAL FN AEErrorHandler (osErr)
...
...
END FN
...
...
LOCAL FN AEReadDocList (procAEvtPtr&, printFlag%)
'****bug at line 15 of this function
...
END FN = osErr

"AEOpenDocument"
ENTERPROC (procAEvtPtr&, procAEvtReplyPtr&, procAEvtRefCon&)
  FN AEReadDocList (procAEvtPtr&, _false)
EXITPROC

"AEPrintDocument"
ENTERPROC (procAEvtPtr&, procAEvtReplyPtr&, procAEvtRefCon&)
  DEF LPRINT
  LONG IF PRCANCEL = 0
    FN AEReadDocList (procAEvtPtr&, _true)
    CLOSE LPRINT
  END IF
EXITPROC

"AEOpenApplication"
ENTERPROC (procAEvtPtr&, procAEvtReplyPtr&, procAEvtRefCon&)
EXITPROC

"AEQuitApplication"
ENTERPROC (procAEvtPtr&, procAEvtReplyPtr&, procAEvtRefCon&)
  END
EXITPROC

LOCAL FN InstallAppleEvents
...
...
END FN

LOCAL FN DoDialog
...
...
END FN

LOCAL FN DoMenu
...
...
END FN

'------------------   MAIN    -----------------------------------------------
"main"
WINDOW OFF
FN InstallAppleEvents
ON DIALOG FN DoDialog
ON MENU FN DoMenu
FN SetUp
DO
  HANDLEEVENTS
UNTIL gQuit
END